<!--#include file=../inc/conn.asp-->
<%
    pageid = request("id")
    set rs_readnum = Server.CreateObject("ADODB.recordset")
    sql = "SELECT anli_reader from cctv002_anli where ID = " & pageid & ""
    rs_readnum.Open sql,conn,1,3
    rs_readnum("anli_reader")=rs_readnum("anli_reader")+1 
    rs_readnum.update
    Response.write ("document.write('"& rs_readnum("anli_reader") & "')")
    rs_readnum.close:Set rs_readnum=Nothing
    conn.Close:set conn=Nothing
%>